home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
trap.src
< prev
next >
Wrap
Text File
|
1991-05-29
|
487b
|
22 lines
%%HP: T(3)A(R)F(.);
@ TRAP, by Bill Wickes [See IFERR.DOC for details. -jkh-]
\<< 0 \-> et
\<< { IFERR 1 50
FOR j
"YOUR CLEANUP PROC." 1 DISP
"#" j \->STR + " HERE" + 2 DISP
NEXT
THEN et EVAL
ELSE DONE
END } OBJ\-> DROP
'et' STO
IFERR 1 1000
FOR j
"YOUR MAIN PROC." 1 DISP
"#" j \->STR " NOW" + + 2 DISP
NEXT
THEN et EVAL
END
\>>
\>>